<% set cnn = AbrirConexionMDB() ZerEgin = Request("ZerEgin") Mail = Request("Mail") if Mail <> "" then session("Mail") = Mail Nombre = Request("Nombre") if Nombre <> "" then session("Nombre") = Nombre Apellidos = Request("Apellidos") if Apellidos <> "" then session("Apellidos") = Apellidos Telefono = Request("Telefono") if Telefono <> "" then session("Telefono") = Telefono Observaciones = Request("Observaciones") if Observaciones <> "" then session("Observaciones") = Observaciones Recogida = Request("Recogida") if Recogida <> "" then session("Recogida") = Recogida Eguna = Request("Eguna") Hilabetea = Request("Hilabetea") Urtea = Request("Urtea") if Eguna <> "" then session("Eguna") = ZeroakJarri(Eguna) if Hilabetea <> "" then session("Hilabetea") = ZeroakJarri(Hilabetea) if Urtea <> "" then session("Urtea") = ZeroakJarri(Urtea) DiaCambioPrecio = DameLunesCercano("castellano") 'seguir comprando if ZerEgin = "seguir" then For i=1 to Session("CantidadProductos") if (Request("Cantidad" & i) = "") OR (Request("Cantidad" & i) = "0") OR (not isnumeric(Request("Cantidad" & i))) then CantidadAct = 1 else CantidadAct = FormatNumber(replace(Request("Cantidad" & i),".",","),2) end if Session("IdCantidad" & i) = CantidadAct Next%> <%response.end end if 'Actualizar Productos if ZerEgin = "actualizar" then For i=1 to Session("CantidadProductos") if (Request("Cantidad" & i) = "") OR (Request("Cantidad" & i) = "0") OR (not isnumeric(Request("Cantidad" & i))) then CantidadAct = 1 else CantidadAct = FormatNumber(replace(Request("Cantidad" & i),".",","),2) end if Session("IdCantidad" & i) = CantidadAct Next end if IdProducto = Request("IdProducto") if not isnumeric(IdProducto) then IdProducto="" end if Unidades = Request("Cantidad") if Unidades = "" then Unidades = 1 'Eliminar Producto if ZerEgin = "Ezabatu" then IdProduktuaEzabatu=Request("IdProduktuaEzabatu") Session("IdProducto" & IdProduktuaEzabatu)=0 Session("IdCantidad" & IdProduktuaEzabatu)=0 end if If IdProducto <> "" then referencia = -1 if Session("CantidadProductos") = "" Then Session("CantidadProductos")=1 else For i=1 to Session("CantidadProductos") if session("IdProducto" & i) = IdProducto then referencia = i next if referencia = -1 then Session("CantidadProductos") = Session("CantidadProductos") + 1 end if end if if referencia = -1 then Session("IdProducto" & Session("CantidadProductos")) = IdProducto Session("IdCantidad" & Session("CantidadProductos")) = Unidades else Session("IdCantidad" & referencia) = cint(Session("IdCantidad" & referencia)) + cint(Unidades) end if end if 'FINALIZAR PEDIDO if ZerEgin = "Caja" then For i=1 to Session("CantidadProductos") if (Request("Cantidad" & i) = "") OR (Request("Cantidad" & i) = "0") OR (not isnumeric(Request("Cantidad" & i))) then CantidadAct = 1 else CantidadAct = FormatNumber(replace(Request("Cantidad" & i),".",","),2) end if Session("IdCantidad" & i) = CantidadAct Next 'MIRAR SI LA FECHA ES CORRECTA PARA LOS PRECIOS Fecha = ZeroakJarri(Request("Eguna")) & "/" & ZeroakJarri(Request("Hilabetea")) & "/" & Request("Urtea") 'MIRAR SI LA FECHA ES PARA HOY 'Quiere hacer un pequeño retoque al formulario de pedido. Si un cliente intentan meter un pedido para el mismo día o para el día siguiente después de las 14 horas, tiene que salir un mensaje de error y que no deje finalizar el pedido. Así se evitan problemas. 'Miramos si el pedido es para el mismo día o el día siguiente: if datediff("d",now(),Fecha)<2 then 'Miramos la hora actual si son más de las 14:00 if hour(now()) >=14 then response.write "
NO ES POSIBLE REALIZAR EL PEDIDO.

No se permiten pedidos para el mismo día o día siguiente si estos se realizan a partir de las 14:00.

Si lo desea pulse sobre el siguiente enlace y modifique la fecha de recogida del pedido.

MODIFICAR PEDIDO
" response.end end if end if if datediff("d",Fecha,DiaCambioPrecio)<0 then TemaFecha= "

IMPORTANTE: La fecha de recogida introducida es posterior a la fecha de vigencia de los precios, por lo tanto el importe del pedido puede variar.
" end if 'Enviar Correo Pedido = "" for i=1 to session("CantidadProductos") strWhere = "SELECT * FROM Productos WHERE IdProducto=" & session("IdProducto" & i) set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1 if rs.recordcount <> 0 then totalTT=rs("Precio")*Session("IdCantidad" & i) Subtotala = Subtotala + totalTT Pedido = Pedido & "" if cint(DameCampo("UdKg","Productos","IdProducto",session("IdProducto" & i)))=0 then Pedido = Pedido & "" else Pedido = Pedido & "" end if Pedido = Pedido & "" end if Next Pedido = Pedido & "
PRODUCTOPRECIO UNITARIOUNIDADESPRECIO / KG.KILOSSUBTOTAL
" & rs("TituloES") & "" & PonerMoneda(rs("Precio")," €",2) & " /" if rs("UdKg")=0 then Pedido = Pedido & "ud." else Pedido = Pedido & "kg." end if Pedido = Pedido & "" & Session("IdCantidad" & i) & "" & PonerMoneda(totalTT," €",2) & "
TOTAL:" & PonerMoneda(Subtotala," €",2) & "
" 'enivo mail cuerpo = "Una persona ha realizado un pedido desde la web

" & _ "Nombre: " & Nombre & "
" & _ "Apellidos: " & Apellidos & "
" & _ "E-Mail: " & Mail & "
" & _ "Teléfono: " & Telefono & "
" & _ "Fecha recogida: " & Fecha & "
" & _ "Hora recogida: " & Recogida & "
" & _ "Observaciones: " & Observaciones & "

" & _ "Pedido:

" & Pedido & TemaFecha if Nombre <> "" then EnviaCorreoReplyTo "tienda@mataderodepamplona.com", "mataderodepamplona.com", "Pedido desde la web" , cuerpo, Mail,"" 'EnviaCorreoReplyTo "nuncio@aldorinternet.com", "mataderodepamplona.com", "Pedido desde la web" , cuerpo, Mail,"" 'EnviaCorreoReplyTo "info@aldorinternet.com", "mataderodepamplona.com", "Pedido desde la web" , cuerpo, Mail,"" end if 'guardar en BD if ChekValorea(Request("Ofertas")) = 1 then strwhere = "SELECT * FROM Suscritos" set rsSuscritos=server.createObject("adodb.recordset") rsSuscritos.Open strWhere, cnn, 1, 3 rsSuscritos.AddNew rsSuscritos("Mail") = Request("Mail") rsSuscritos("Idioma") = Request("Idioma") rsSuscritos("Activo") = 1 rsSuscritos.Update IdSuscrito = rsSuscritos("IdSuscrito") rsSuscritos.Close set rsSuscritos = nothing end if if Session("CantidadProductos") <> "" then For i=1 to Session("CantidadProductos") Session("IdReferencia" & i) = "" Session("IdCantidad" & i) = "" Next Session("CantidadProductos") = 0 session("CantidadProductosPoner") = 0 session("TotalProductosPoner") = 0 end if end if %> Matadero de Pamplona - Realizar pedido
<%if ZerEgin <> "Caja" then%>
DATOS PERSONALES

"/>
"/>
"/>
"/>
" style="margin: 4px 0px 5px;"/> / " style="margin: 4px 0px 5px;"/> / " style="margin: 4px 0px 5px;"/>

"/>
 Deseo recibir ofertas por e-mail

Hay que realizar los pedidos el día anterior
antes de las 14 horas.

 <%Subtotala = 0 for i=1 to session("CantidadProductos")%> <%strWhere = "SELECT * FROM Productos WHERE IdProducto=" & session("IdProducto" & i) set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1 if rs.recordcount <> 0 then%> <%if cint(DameCampo("UdKg","Productos","IdProducto",session("IdProducto" & i)))=0 then%> <%else%> <%end if%> <% totalTT=rs("Precio")*Session("IdCantidad" & i) Subtotala = Subtotala + totalTT%> <%end if Next%>
PRODUCTOPRECIO UNITARIO UNIDADESPRECIO / KG. KILOSSUBTOTAL
<%=rs("TituloES")%>
 <%=PonerMoneda(rs("Precio")," €",2)%> / <%=iif(rs("UdKg")=0,"ud.","kg.")%> )/100,2)+' €';$('totalTT').innerHTML='PULSE ACTUALIZAR';" value="<%=Session("IdCantidad" & i)%>"/> <%=PonerMoneda(totalTT," €",2)%> eliminar producto
TOTAL: <%=PonerMoneda(Subtotala," €",2)%>

Precios con IVA incluido.

NOTA: Matadero de Pamplona ajustará al máximo el nº de Kg de su pedido, ya que el peso real de cada producto suele ser irregular. Esto puede modificar ligeramente el precio final del pedido.

IMPORTANTE: El precio estará vigente para pedidos que se recojan hasta el <%=DiaCambioPrecio%> (inclusive).
<%else%>

Su pedido ha sido realizado correctamente.<%=TemaFecha%>
En breve nos pondremos en contacto con usted.

<%end if%>